home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 January: Mac OS SDK / Dev.CD Jan 96 SDK / Dev.CD Jan 96 SDK1.toast / Development Kits (Disc 1) / MacTCP / MacTCP Developer Tools / HyperCard MacTCP Toolkit 1.0 / TCP XCMD Docs / card_2947.txt < prev    next >
Encoding:
Text File  |  1994-11-21  |  6.3 KB  |  314 lines
  1. -- card: 2947 from stack: in
  2. -- bmap block id: 8833
  3. -- flags: 0000
  4. -- background id: 2705
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2007
  11. -- rect: left=249 top=27 right=281 bottom=423
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: index
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get item 2 of the clickLoc
  23.   subtract item 2 of the rect of the target from it
  24.   add the scroll of the target to it
  25.   subtract 5 from it -- Correct for wide margins
  26.   divide it by the textHeight of the target
  27.   get trunc(it)+1
  28.   get line it of value(the target)
  29.   if it is not empty then
  30.     push card
  31.     set lockScreen to true
  32.     go to next card
  33.     find it in field "command"
  34.     if it is not in field "command" then pop card
  35.     else
  36.       get the id of this card
  37.       pop card
  38.       push card
  39.       set lockScreen to false
  40.       visual effect zoom open
  41.       go to it
  42.     end if
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 2 (button)
  49. -- low flags: 00
  50. -- high flags: A003
  51. -- rect: left=290 top=285 right=307 bottom=399
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Update Index
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   put empty into card field "index"
  63.   repeat with i = 2 to the number of cards
  64.     get word 1 of field "command" of card i
  65.     if "(" is in it then delete char offset("(",it) to length(it) of it
  66.     put it & return after card field "index"
  67.   end repeat
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (button)
  73. -- low flags: 00
  74. -- high flags: A003
  75. -- rect: left=274 top=315 right=337 bottom=416
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Sort Cards by Name
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   sort by field "command"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 4 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=20 top=289 right=323 bottom=56
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 32670 / 32670
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   show all cards
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (field)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=35 top=104 right=172 bottom=183
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 2
  118. -- text size: 12
  119. -- style flags: 256
  120. -- line height: 16
  121. -- part name: 
  122.  
  123.  
  124. -- part 6 (field)
  125. -- low flags: 01
  126. -- high flags: 0000
  127. -- rect: left=42 top=185 right=218 bottom=179
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 2
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136.  
  137.  
  138. -- part 7 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=20 top=248 right=282 bottom=56
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 902 / 902
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   visual effect wipe right
  153.   go to previous card
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 8 (button)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=58 top=248 right=282 bottom=94
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 26425 / 26425
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: 
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   visual effect wipe left
  173.   go to next card
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 10 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=58 top=289 right=323 bottom=94
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 29114 / 29114
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: 
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   visual effect zoom close
  193.   pop card
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 11 (button)
  199. -- low flags: 00
  200. -- high flags: 0001
  201. -- rect: left=47 top=185 right=219 bottom=171
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 8538 / 8538
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: 
  210. ----- HyperTalk script -----
  211. on mouseDown
  212.   hide the target
  213.   wait until the mouse is up
  214.   wait 1 seconds
  215.   show the target
  216. end mouseDown
  217.  
  218.  
  219.  
  220. -- part 12 (button)
  221. -- low flags: 00
  222. -- high flags: A003
  223. -- rect: left=22 top=36 right=58 bottom=131
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Click me first
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   show card field "release notes"
  235.   show button "OK"
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 13 (field)
  241. -- low flags: 80
  242. -- high flags: 2004
  243. -- rect: left=54 top=50 right=285 bottom=487
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 2
  248. -- text size: 10
  249. -- style flags: 0
  250. -- line height: 13
  251. -- part name: release notes
  252.  
  253.  
  254. -- part 14 (button)
  255. -- low flags: 80
  256. -- high flags: A003
  257. -- rect: left=406 top=250 right=272 bottom=456
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: OK
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   hide button "OK"
  269.   hide card field "release notes"
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part contents for card part 5
  275. ----- text -----
  276. HyperCard
  277. TCP Toolkit Documentation
  278.  
  279. -- part contents for card part 6
  280. ----- text -----
  281. by
  282. Harry Chesley
  283.  
  284. -- part contents for card part 13
  285. ----- text -----
  286. 1.0 Release Notes:
  287.  
  288. Welcome to the HyperCard TCP Port Toolkit.
  289.  
  290. The best place to start is by clicking on the TCPOverview line in the command/topic list on the right side of the screen.
  291.  
  292. Remember to call TCPRelease for every connection you make. This is absolutely imperative!
  293.  
  294.  
  295. -- part contents for card part 1
  296. ----- text -----
  297. alphaSort
  298. orderMessages
  299. rot13
  300. splitByWord
  301. TCPActiveOpen
  302. TCPCharsAvailable
  303. TCPClose
  304. TCPNameToAddr
  305. TCPOverview
  306. TCPPassiveOpen
  307. TCPRecvChars
  308. TCPRecvMsg
  309. TCPRecvUpTo
  310. TCPRelease
  311. TCPSend
  312. TCPState
  313. TCPVersion
  314.